From: John Paul Wallington <jpw@pobox.com>
Date: Mon, 5 Aug 2002 22:37:25 +0000 (+0000)
Subject: (ediff-copy-list): Use `defalias' instead of
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31232
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3fd94fc22c2e4e88f1f512fa5c5e06b602f9def5;p=emacs.git

(ediff-copy-list): Use `defalias' instead of
`fset' and `symbol-function'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 067e3453aca..06e641de5f1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-05  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* ediff-util.el (ediff-copy-list): Use `defalias' instead of
+	`fset' and `symbol-function'.
+
 2002-08-05  John Wiegley  <johnw@gnu.org>
 
 	* pcomplete.el (pcomplete-entries): Don't set `above-cutoff' to a
diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index 95074d6ce47..1e0bcb8cbb3 100644
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -4259,7 +4259,7 @@ Mail anyway? (y or n) ")
     (cdr result)))
 
 (if (fboundp 'copy-sequence)
-    (fset 'ediff-copy-list (symbol-function 'copy-sequence))
+    (defalias 'ediff-copy-list 'copy-sequence)
   (defun ediff-copy-list (list)
     (if (consp list)
       ;;;(let ((res nil))